home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / mixin-madness / simple-view-mixins / PICT-svm.lisp < prev    next >
MacBinary  |  1991-10-23  |  4.9 KB  |  [TEXT/CCL2]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Wed Oct 23 15:49:26 1991, modified Wed Oct 23 15:49:26 1991, creator Common Lisp 2, type ASCII, 4237 bytes "PICT-svm.lisp" , at 0x110d 416 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[CCL2]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 50 49 43 54 2d 73 | 76 6d 2e 6c 69 73 70 00 |..PICT-s|vm.lisp.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 10 8d 00 | 00 01 a0 a5 2b 82 c6 a5 |........|....+...|
|00000060| 2b 82 c6 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c6 75 00 00 |........|.....u..|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 50 49 43 54 |).(provi|de :PICT|
|000000a0| 2d 73 76 6d 29 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |-svm).;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 3b 3b 20 |;;;;;;;;|;;;;.;; |
|000000f0| 50 49 43 54 2d 73 76 6d | 2e 4c 69 73 70 0d 3b 3b |PICT-svm|.Lisp.;;|
|00000100| 0d 3b 3b 20 43 6f 70 79 | 72 69 67 68 74 20 a9 20 |.;; Copy|right . |
|00000110| 31 39 39 31 20 4e 6f 72 | 74 68 77 65 73 74 65 72 |1991 Nor|thwester|
|00000120| 6e 20 55 6e 69 76 65 72 | 73 69 74 79 20 49 6e 73 |n Univer|sity Ins|
|00000130| 74 69 74 75 74 65 20 66 | 6f 72 20 74 68 65 20 4c |titute f|or the L|
|00000140| 65 61 72 6e 69 6e 67 20 | 53 63 69 65 6e 63 65 73 |earning |Sciences|
|00000150| 0d 3b 3b 20 41 6c 6c 20 | 52 69 67 68 74 73 20 52 |.;; All |Rights R|
|00000160| 65 73 65 72 76 65 64 0d | 3b 3b 0d 3b 3b 20 61 75 |eserved.|;;.;; au|
|00000170| 74 68 6f 72 3a 20 4d 69 | 63 68 61 65 6c 20 53 2e |thor: Mi|chael S.|
|00000180| 20 45 6e 67 62 65 72 0d | 3b 3b 0d 3b 3b 20 6d 69 | Engber.|;;.;; mi|
|00000190| 78 69 6e 20 66 6f 72 20 | 61 64 64 69 6e 67 20 50 |xin for |adding P|
|000001a0| 49 43 54 73 20 74 6f 20 | 76 69 65 77 73 0d 3b 3b |ICTs to |views.;;|
|000001b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 0d 0d 28 6f | 6f 75 2d 64 65 70 65 6e |;;;;..(o|ou-depen|
|00000200| 64 65 6e 63 69 65 73 0d | 20 3a 67 72 61 70 68 69 |dencies.| :graphi|
|00000210| 63 2d 72 73 72 63 2d 73 | 76 6d 0d 20 3a 50 49 43 |c-rsrc-s|vm. :PIC|
|00000220| 54 2d 75 0d 20 3a 72 65 | 63 6f 72 64 73 2d 75 29 |T-u. :re|cords-u)|
|00000230| 0d 0d 28 65 78 70 6f 72 | 74 20 27 28 50 49 43 54 |..(expor|t '(PICT|
|00000240| 2d 73 76 6d 20 73 65 74 | 2d 76 69 65 77 2d 50 49 |-svm set|-view-PI|
|00000250| 43 54 29 29 0d 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |CT))..;;|;;;;;;;;|
|00000260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 23 7c 0d |;;;;;;;;|;;;;.#|.|
|000002a0| 0d 50 49 43 54 2d 73 76 | 6d 20 61 6e 64 20 50 49 |.PICT-sv|m and PI|
|000002b0| 43 54 2d 76 6d 20 70 72 | 6f 76 69 64 65 20 50 49 |CT-vm pr|ovide PI|
|000002c0| 43 54 20 64 72 61 77 69 | 6e 67 20 66 6f 72 20 76 |CT drawi|ng for v|
|000002d0| 69 65 77 73 2e 20 57 68 | 65 6e 20 61 20 50 49 43 |iews. Wh|en a PIC|
|000002e0| 54 20 69 73 20 63 72 65 | 61 74 65 64 2c 0d 69 74 |T is cre|ated,.it|
|000002f0| 20 68 61 73 20 61 20 62 | 6f 75 6e 64 69 6e 67 20 | has a b|ounding |
|00000300| 72 65 63 74 61 6e 67 6c | 65 2c 20 62 75 74 20 63 |rectangl|e, but c|
|00000310| 61 6e 20 62 65 20 64 69 | 73 70 6c 61 79 65 64 20 |an be di|splayed |
|00000320| 73 63 61 6c 65 64 28 79 | 75 63 6b 29 20 74 6f 20 |scaled(y|uck) to |
|00000330| 61 6e 79 20 73 69 7a 65 | 2e 0d 0d 53 65 65 20 41 |any size|...See A|
|00000340| 6c 73 6f 0d 20 67 72 61 | 70 68 69 63 2d 72 73 72 |lso. gra|phic-rsr|
|00000350| 63 2d 73 76 6d 20 2d 20 | 69 6e 68 65 72 69 74 65 |c-svm - |inherite|
|00000360| 64 20 62 65 68 61 76 69 | 6f 72 0d 0d 49 6e 69 74 |d behavi|or..Init|
|00000370| 61 72 67 73 0d 0d 20 3a | 50 49 43 54 2d 69 64 0d |args.. :|PICT-id.|
|00000380| 20 3a 50 49 43 54 2d 6e | 61 6d 65 0d 20 20 20 54 | :PICT-n|ame.   T|
|00000390| 68 65 20 50 49 43 54 20 | 63 61 6e 20 62 65 20 73 |he PICT |can be s|
|000003a0| 70 65 63 69 66 69 65 64 | 20 62 79 20 69 64 20 6f |pecified| by id o|
|000003b0| 72 20 6e 61 6d 65 2e 20 | 54 68 65 20 50 49 43 54 |r name. |The PICT|
|000003c0| 20 72 65 73 6f 75 72 63 | 65 20 77 69 6c 6c 20 62 | resourc|e will b|
|000003d0| 65 0d 20 20 20 72 65 61 | 64 20 69 6e 20 77 68 65 |e.   rea|d in whe|
|000003e0| 6e 20 74 68 65 20 76 69 | 65 77 20 69 73 20 69 6e |n the vi|ew is in|
|000003f0| 73 74 61 6c 6c 65 64 20 | 69 6e 20 61 20 77 69 6e |stalled |in a win|
|00000400| 64 6f 77 2e 20 49 74 20 | 69 73 20 61 73 73 75 6d |dow. It |is assum|
|00000410| 65 64 20 74 68 61 74 0d | 20 20 20 74 68 65 20 61 |ed that.|   the a|
|00000420| 70 70 72 6f 70 72 69 61 | 74 65 20 72 65 73 6f 75 |ppropria|te resou|
|00000430| 72 63 65 20 66 69 6c 65 | 20 77 69 6c 6c 20 62 65 |rce file| will be|
|00000440| 20 6f 70 65 6e 20 61 74 | 20 74 68 61 74 20 74 69 | open at| that ti|
|00000450| 6d 65 2e 0d 0d 20 3a 50 | 49 43 54 2d 68 61 6e 64 |me... :P|ICT-hand|
|00000460| 6c 65 0d 20 20 20 49 66 | 20 79 6f 75 20 61 6c 72 |le.   If| you alr|
|00000470| 65 61 64 79 20 68 61 76 | 65 20 61 20 50 49 43 54 |eady hav|e a PICT|
|00000480| 20 68 61 6e 64 6c 65 2c | 20 69 74 20 63 61 6e 20 | handle,| it can |
|00000490| 62 65 20 73 70 65 63 69 | 66 69 65 64 20 64 69 72 |be speci|fied dir|
|000004a0| 65 63 74 6c 79 2e 0d 0d | 20 3a 50 49 43 54 2d 66 |ectly...| :PICT-f|
|000004b0| 69 6c 65 0d 20 20 20 54 | 68 65 20 6e 61 6d 65 20 |ile.   T|he name |
|000004c0| 6f 66 20 61 20 50 49 43 | 54 20 66 69 6c 65 20 74 |of a PIC|T file t|
|000004d0| 6f 20 75 73 65 20 69 6e | 73 74 65 61 64 20 6f 66 |o use in|stead of|
|000004e0| 20 6c 6f 6f 6b 69 6e 67 | 20 66 6f 72 20 61 20 50 | looking| for a P|
|000004f0| 49 43 54 20 72 65 73 6f | 75 72 63 65 0d 20 20 20 |ICT reso|urce.   |
|00000500| 69 6e 20 74 68 65 20 6f | 70 65 6e 20 72 65 73 6f |in the o|pen reso|
|00000510| 75 72 63 65 20 66 69 6c | 65 73 2e 0d 0d 20 3a 50 |urce fil|es... :P|
|00000520| 49 43 54 2d 73 74 6f 72 | 61 67 65 20 5b 3a 6d 65 |ICT-stor|age [:me|
|00000530| 6d 6f 72 79 5d 0d 20 20 | 20 41 70 70 6c 69 63 61 |mory].  | Applica|
|00000540| 62 6c 65 20 6f 6e 6c 79 | 20 77 68 65 6e 20 75 73 |ble only| when us|
|00000550| 69 6e 67 20 61 20 50 49 | 43 54 20 66 69 6c 65 2e |ing a PI|CT file.|
|00000560| 20 49 74 20 64 65 74 65 | 72 6d 69 6e 65 73 20 69 | It dete|rmines i|
|00000570| 66 20 74 68 65 0d 20 20 | 20 50 49 43 54 20 77 69 |f the.  | PICT wi|
|00000580| 6c 6c 20 62 65 20 6b 65 | 70 74 20 6d 65 6d 6f 72 |ll be ke|pt memor|
|00000590| 79 20 6f 72 20 77 69 6c | 6c 20 62 65 20 73 70 6f |y or wil|l be spo|
|000005a0| 6f 6c 65 64 20 69 6e 20 | 66 72 6f 6d 20 64 69 73 |oled in |from dis|
|000005b0| 6b 2e 20 41 6c 6c 6f 77 | 65 64 2c 0d 20 20 20 6b |k. Allow|ed,.   k|
|000005c0| 65 79 77 6f 72 64 73 20 | 61 72 65 20 3a 6d 65 6d |eywords |are :mem|
|000005d0| 6f 72 79 20 61 6e 64 20 | 3a 64 69 73 6b 2e 0d 0d |ory and |:disk...|
|000005e0| 20 3a 50 49 43 54 2d 73 | 63 61 6c 69 6e 67 20 5b | :PICT-s|caling [|
|000005f0| 3a 61 64 6a 75 73 74 2d | 76 69 65 77 2d 73 69 7a |:adjust-|view-siz|
|00000600| 65 5d 0d 20 20 20 44 65 | 74 65 72 6d 69 6e 65 73 |e].   De|termines|
|00000610| 20 69 66 20 74 68 65 20 | 50 49 43 54 20 69 73 20 | if the |PICT is |
|00000620| 73 63 61 6c 65 64 20 74 | 6f 20 74 68 65 20 76 69 |scaled t|o the vi|
|00000630| 65 77 20 73 69 7a 65 20 | 6f 72 20 76 69 63 65 2d |ew size |or vice-|
|00000640| 76 65 72 73 61 2e 0d 20 | 20 20 41 6c 6c 6f 77 65 |versa.. |  Allowe|
|00000650| 64 20 6b 65 79 77 6f 72 | 64 73 20 61 72 65 20 3a |d keywor|ds are :|
|00000660| 61 64 6a 75 73 74 2d 76 | 69 65 77 2d 73 69 7a 65 |adjust-v|iew-size|
|00000670| 2c 20 3a 73 63 61 6c 65 | 2d 74 6f 2d 76 69 65 77 |, :scale|-to-view|
|00000680| 2c 20 3a 63 6c 69 70 2d | 74 6f 2d 76 69 65 77 2e |, :clip-|to-view.|
|00000690| 0d 20 20 20 20 3a 61 64 | 6a 75 73 74 2d 76 69 65 |.    :ad|just-vie|
|000006a0| 77 2d 73 69 7a 65 20 2d | 20 74 68 65 20 76 69 65 |w-size -| the vie|
|000006b0| 77 20 73 69 7a 65 20 69 | 73 20 61 64 6a 75 73 74 |w size i|s adjust|
|000006c0| 65 64 20 74 6f 20 66 69 | 74 20 74 68 65 20 63 69 |ed to fi|t the ci|
|000006d0| 63 6e 0d 20 20 20 20 3a | 73 63 61 6c 65 2d 74 6f |cn.    :|scale-to|
|000006e0| 2d 76 69 65 77 20 20 20 | 20 2d 20 74 68 65 20 63 |-view   | - the c|
|000006f0| 69 63 6e 20 69 73 20 73 | 63 61 6c 65 64 20 74 6f |icn is s|caled to|
|00000700| 20 74 68 65 20 76 69 65 | 77 20 73 69 7a 65 2e 0d | the vie|w size..|
|00000710| 20 20 20 20 3a 63 6c 69 | 70 2d 74 6f 2d 76 69 65 |    :cli|p-to-vie|
|00000720| 77 20 20 20 20 20 2d 20 | 74 68 65 20 63 69 63 6e |w     - |the cicn|
|00000730| 20 69 73 20 64 72 61 77 | 6e 20 63 6c 69 70 70 65 | is draw|n clippe|
|00000740| 64 20 74 6f 20 74 68 65 | 20 76 69 65 77 0d 0d 0d |d to the| view...|
|00000750| 4d 65 74 68 6f 64 73 20 | 6f 66 20 49 6e 74 65 72 |Methods |of Inter|
|00000760| 65 73 74 0d 0d 20 73 65 | 74 2d 76 69 65 77 2d 50 |est.. se|t-view-P|
|00000770| 49 43 54 20 28 73 76 20 | 50 49 43 54 2d 73 76 6d |ICT (sv |PICT-svm|
|00000780| 29 20 26 6b 65 79 20 50 | 49 43 54 2d 69 64 20 50 |) &key P|ICT-id P|
|00000790| 49 43 54 2d 6e 61 6d 65 | 20 50 49 43 54 2d 68 61 |ICT-name| PICT-ha|
|000007a0| 6e 64 6c 65 20 50 49 43 | 54 2d 66 69 6c 65 20 50 |ndle PIC|T-file P|
|000007b0| 49 43 54 2d 73 74 6f 72 | 61 67 65 0d 20 20 43 68 |ICT-stor|age.  Ch|
|000007c0| 61 6e 67 65 73 20 74 68 | 65 20 50 49 43 54 2e 20 |anges th|e PICT. |
|000007d0| 54 68 65 20 6b 65 79 77 | 6f 72 64 73 20 68 61 76 |The keyw|ords hav|
|000007e0| 65 20 74 68 65 20 73 61 | 6d 65 20 6d 65 61 6e 69 |e the sa|me meani|
|000007f0| 6e 67 20 61 73 20 69 6e | 20 6d 61 6b 65 2d 69 6e |ng as in| make-in|
|00000800| 73 74 61 6e 63 65 2e 0d | 0d 0d 7c 23 0d 3b 3b 3b |stance..|..|#.;;;|
|00000810| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000820| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000830| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000840| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000850| 3b 3b 3b 0d 0d 28 64 65 | 66 63 6c 61 73 73 20 50 |;;;..(de|fclass P|
|00000860| 49 43 54 2d 73 76 6d 20 | 28 67 72 61 70 68 69 63 |ICT-svm |(graphic|
|00000870| 2d 72 73 72 63 2d 73 76 | 6d 29 0d 20 20 28 28 72 |-rsrc-sv|m).  ((r|
|00000880| 73 72 63 2d 69 64 20 20 | 20 20 20 20 20 20 20 3a |src-id  |       :|
|00000890| 69 6e 69 74 61 72 67 20 | 3a 50 49 43 54 2d 69 64 |initarg |:PICT-id|
|000008a0| 29 0d 20 20 20 28 72 73 | 72 63 2d 6e 61 6d 65 20 |).   (rs|rc-name |
|000008b0| 20 20 20 20 20 20 3a 69 | 6e 69 74 61 72 67 20 3a |      :i|nitarg :|
|000008c0| 50 49 43 54 2d 6e 61 6d | 65 29 0d 20 20 20 28 72 |PICT-nam|e).   (r|
|000008d0| 73 72 63 2d 68 61 6e 64 | 6c 65 20 20 20 20 20 3a |src-hand|le     :|
|000008e0| 69 6e 69 74 61 72 67 20 | 3a 50 49 43 54 2d 68 61 |initarg |:PICT-ha|
|000008f0| 6e 64 6c 65 29 0d 20 20 | 20 28 50 49 43 54 2d 66 |ndle).  | (PICT-f|
|00000900| 69 6c 65 20 20 20 20 20 | 20 20 3a 69 6e 69 74 61 |ile     |  :inita|
|00000910| 72 67 20 3a 50 49 43 54 | 2d 66 69 6c 65 29 0d 20 |rg :PICT|-file). |
|00000920| 20 20 28 50 49 43 54 2d | 73 74 6f 72 61 67 65 20 |  (PICT-|storage |
|00000930| 20 20 20 3a 69 6e 69 74 | 61 72 67 20 3a 50 49 43 |   :init|arg :PIC|
|00000940| 54 2d 73 74 6f 72 61 67 | 65 29 0d 20 20 20 28 67 |T-storag|e).   (g|
|00000950| 72 61 70 68 69 63 2d 73 | 63 61 6c 69 6e 67 20 3a |raphic-s|caling :|
|00000960| 69 6e 69 74 61 72 67 20 | 3a 50 49 43 54 2d 73 63 |initarg |:PICT-sc|
|00000970| 61 6c 69 6e 67 29 29 0d | 20 20 28 3a 64 65 66 61 |aling)).|  (:defa|
|00000980| 75 6c 74 2d 69 6e 69 74 | 61 72 67 73 0d 20 20 20 |ult-init|args.   |
|00000990| 20 3a 72 73 72 63 2d 74 | 79 70 65 20 22 50 49 43 | :rsrc-t|ype "PIC|
|000009a0| 54 22 0d 20 20 20 20 3a | 50 49 43 54 2d 73 74 6f |T".    :|PICT-sto|
|000009b0| 72 61 67 65 20 3a 6d 65 | 6d 6f 72 79 0d 20 20 20 |rage :me|mory.   |
|000009c0| 20 3a 67 72 61 70 68 69 | 63 2d 64 65 66 61 75 6c | :graphi|c-defaul|
|000009d0| 74 2d 73 69 7a 65 20 23 | 40 28 31 30 30 20 31 30 |t-size #|@(100 10|
|000009e0| 30 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |0)))..(d|efmethod|
|000009f0| 20 72 73 72 63 2d 67 65 | 74 2d 66 6e 20 28 28 73 | rsrc-ge|t-fn ((s|
|00000a00| 76 20 50 49 43 54 2d 73 | 76 6d 29 20 72 73 72 63 |v PICT-s|vm) rsrc|
|00000a10| 2d 74 79 70 65 20 72 73 | 72 63 2d 69 64 2d 6f 72 |-type rs|rc-id-or|
|00000a20| 2d 6e 61 6d 65 29 0d 20 | 20 28 64 65 63 6c 61 72 |-name). | (declar|
|00000a30| 65 20 28 69 67 6e 6f 72 | 65 20 72 73 72 63 2d 74 |e (ignor|e rsrc-t|
|00000a40| 79 70 65 29 29 0d 20 20 | 28 65 74 79 70 65 63 61 |ype)).  |(etypeca|
|00000a50| 73 65 20 72 73 72 63 2d | 69 64 2d 6f 72 2d 6e 61 |se rsrc-|id-or-na|
|00000a60| 6d 65 0d 20 20 20 20 28 | 66 69 78 6e 75 6d 20 28 |me.    (|fixnum (|
|00000a70| 23 5f 47 65 74 50 69 63 | 74 75 72 65 20 72 73 72 |#_GetPic|ture rsr|
|00000a80| 63 2d 69 64 2d 6f 72 2d | 6e 61 6d 65 29 29 0d 20 |c-id-or-|name)). |
|00000a90| 20 20 20 28 73 74 72 69 | 6e 67 20 28 23 5f 47 65 |   (stri|ng (#_Ge|
|00000aa0| 74 50 69 63 74 75 72 65 | 20 28 67 65 74 2d 72 65 |tPicture| (get-re|
|00000ab0| 73 6f 75 72 63 65 2d 69 | 64 20 22 50 49 43 54 22 |source-i|d "PICT"|
|00000ac0| 20 72 73 72 63 2d 69 64 | 2d 6f 72 2d 6e 61 6d 65 | rsrc-id|-or-name|
|00000ad0| 29 29 29 0d 20 20 20 20 | 28 6e 75 6c 6c 20 20 20 |))).    |(null   |
|00000ae0| 28 65 63 61 73 65 20 28 | 73 6c 6f 74 2d 76 61 6c |(ecase (|slot-val|
|00000af0| 75 65 20 73 76 20 27 50 | 49 43 54 2d 73 74 6f 72 |ue sv 'P|ICT-stor|
|00000b00| 61 67 65 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |age).   |        |
|00000b10| 20 20 20 28 3a 6d 65 6d | 6f 72 79 20 28 67 65 74 |   (:mem|ory (get|
|00000b20| 2d 70 69 63 74 75 72 65 | 2d 66 72 6f 6d 2d 66 69 |-picture|-from-fi|
|00000b30| 6c 65 20 28 73 6c 6f 74 | 2d 76 61 6c 75 65 20 73 |le (slot|-value s|
|00000b40| 76 20 27 50 49 43 54 2d | 66 69 6c 65 29 29 29 0d |v 'PICT-|file))).|
|00000b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 3a |        |      (:|
|00000b60| 64 69 73 6b 20 20 20 28 | 6c 65 74 20 28 28 50 49 |disk   (|let ((PI|
|00000b70| 43 54 5f 68 20 28 23 5f | 4e 65 77 48 61 6e 64 6c |CT_h (#_|NewHandl|
|00000b80| 65 20 28 72 6c 65 6e 67 | 74 68 20 3a 50 69 63 74 |e (rleng|th :Pict|
|00000b90| 75 72 65 29 29 29 29 0d | 20 20 20 20 20 20 20 20 |ure)))).|        |
|00000ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bb0| 20 28 77 68 65 6e 20 28 | 25 6e 75 6c 6c 2d 70 74 | (when (|%null-pt|
|00000bc0| 72 2d 70 20 50 49 43 54 | 5f 68 29 0d 20 20 20 20 |r-p PICT|_h).    |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000be0| 20 20 20 20 20 20 20 28 | 65 72 72 6f 72 20 22 75 |       (|error "u|
|00000bf0| 6e 61 62 6c 65 20 74 6f | 20 61 6c 6c 6f 63 61 74 |nable to| allocat|
|00000c00| 65 20 61 20 7e 61 20 70 | 69 63 74 75 72 65 20 72 |e a ~a p|icture r|
|00000c10| 65 63 6f 72 64 20 68 61 | 6e 64 6c 65 20 28 7e 61 |ecord ha|ndle (~a|
|00000c20| 20 62 79 74 65 73 29 20 | 66 6f 72 20 7e 73 22 0d | bytes) |for ~s".|
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c50| 20 20 28 72 6c 65 6e 67 | 74 68 20 3a 50 69 63 74 |  (rleng|th :Pict|
|00000c60| 75 72 65 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ure).   |        |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c80| 20 20 20 20 20 20 20 28 | 73 6c 6f 74 2d 76 61 6c |       (|slot-val|
|00000c90| 75 65 20 73 76 20 27 50 | 49 43 54 2d 66 69 6c 65 |ue sv 'P|ICT-file|
|00000ca0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 77 69 |        |     (wi|
|00000cc0| 74 68 2d 64 65 72 65 66 | 65 72 65 6e 63 65 64 2d |th-deref|erenced-|
|00000cd0| 68 61 6e 64 6c 65 73 20 | 28 28 50 49 43 54 5f 70 |handles |((PICT_p|
|00000ce0| 20 50 49 43 54 5f 68 29 | 29 0d 20 20 20 20 20 20 | PICT_h)|).      |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d00| 20 20 20 20 20 28 67 65 | 74 2d 50 49 43 54 2d 66 |     (ge|t-PICT-f|
|00000d10| 69 6c 65 2d 69 6e 66 6f | 20 28 73 6c 6f 74 2d 76 |ile-info| (slot-v|
|00000d20| 61 6c 75 65 20 73 76 20 | 27 50 49 43 54 2d 66 69 |alue sv |'PICT-fi|
|00000d30| 6c 65 29 20 50 49 43 54 | 5f 70 29 29 0d 20 20 20 |le) PICT|_p)).   |
|00000d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d50| 20 20 20 20 20 20 50 49 | 43 54 5f 68 29 29 29 29 |      PI|CT_h))))|
|00000d60| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 67 |))..(def|method g|
|00000d70| 72 61 70 68 69 63 2d 73 | 69 7a 65 20 28 28 73 76 |raphic-s|ize ((sv|
|00000d80| 20 50 49 43 54 2d 73 76 | 6d 29 20 50 49 43 54 2d | PICT-sv|m) PICT-|
|00000d90| 68 61 6e 64 6c 65 29 0d | 20 20 28 64 65 63 6c 61 |handle).|  (decla|
|00000da0| 72 65 20 28 69 67 6e 6f | 72 65 20 73 76 29 29 0d |re (igno|re sv)).|
|00000db0| 20 20 28 73 75 62 74 72 | 61 63 74 2d 70 6f 69 6e |  (subtr|act-poin|
|00000dc0| 74 73 0d 20 20 20 28 68 | 72 65 66 20 50 49 43 54 |ts.   (h|ref PICT|
|00000dd0| 2d 68 61 6e 64 6c 65 20 | 3a 50 69 63 74 75 72 65 |-handle |:Picture|
|00000de0| 2e 70 69 63 46 72 61 6d | 65 2e 62 6f 74 52 69 67 |.picFram|e.botRig|
|00000df0| 68 74 29 0d 20 20 20 28 | 68 72 65 66 20 50 49 43 |ht).   (|href PIC|
|00000e00| 54 2d 68 61 6e 64 6c 65 | 20 3a 50 69 63 74 75 72 |T-handle| :Pictur|
|00000e10| 65 2e 70 69 63 46 72 61 | 6d 65 2e 74 6f 70 4c 65 |e.picFra|me.topLe|
|00000e20| 66 74 20 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |ft )))..|(defmeth|
|00000e30| 6f 64 20 64 72 61 77 2d | 67 72 61 70 68 69 63 20 |od draw-|graphic |
|00000e40| 28 28 73 76 20 50 49 43 | 54 2d 73 76 6d 29 20 50 |((sv PIC|T-svm) P|
|00000e50| 49 43 54 2d 68 61 6e 64 | 6c 65 20 72 65 63 74 29 |ICT-hand|le rect)|
|00000e60| 0d 20 20 28 65 63 61 73 | 65 20 28 73 6c 6f 74 2d |.  (ecas|e (slot-|
|00000e70| 76 61 6c 75 65 20 73 76 | 20 27 50 49 43 54 2d 73 |value sv| 'PICT-s|
|00000e80| 74 6f 72 61 67 65 29 0d | 20 20 20 20 28 3a 6d 65 |torage).|    (:me|
|00000e90| 6d 6f 72 79 20 28 23 5f | 44 72 61 77 50 69 63 74 |mory (#_|DrawPict|
|00000ea0| 75 72 65 20 50 49 43 54 | 2d 68 61 6e 64 6c 65 20 |ure PICT|-handle |
|00000eb0| 72 65 63 74 29 29 0d 20 | 20 20 20 28 3a 64 69 73 |rect)). |   (:dis|
|00000ec0| 6b 20 20 20 28 64 72 61 | 77 2d 70 69 63 74 75 72 |k   (dra|w-pictur|
|00000ed0| 65 2d 66 72 6f 6d 2d 66 | 69 6c 65 20 28 73 6c 6f |e-from-f|ile (slo|
|00000ee0| 74 2d 76 61 6c 75 65 20 | 73 76 20 27 50 49 43 54 |t-value |sv 'PICT|
|00000ef0| 2d 66 69 6c 65 29 20 72 | 65 63 74 29 29 29 29 0d |-file) r|ect)))).|
|00000f00| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 76 69 65 77 |.(defmet|hod view|
|00000f10| 2d 64 65 66 61 75 6c 74 | 2d 73 69 7a 65 20 28 28 |-default|-size ((|
|00000f20| 73 76 20 50 49 43 54 2d | 73 76 6d 29 29 0d 20 20 |sv PICT-|svm)).  |
|00000f30| 28 61 64 64 2d 70 6f 69 | 6e 74 73 20 28 6d 75 6c |(add-poi|nts (mul|
|00000f40| 74 69 70 6c 65 2d 76 61 | 6c 75 65 2d 63 61 6c 6c |tiple-va|lue-call|
|00000f50| 20 23 27 61 64 64 2d 70 | 6f 69 6e 74 73 20 28 67 | #'add-p|oints (g|
|00000f60| 72 61 70 68 69 63 2d 6d | 61 72 67 69 6e 73 20 73 |raphic-m|argins s|
|00000f70| 76 29 29 20 23 40 28 31 | 30 30 20 31 30 30 29 29 |v)) #@(1|00 100))|
|00000f80| 29 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 73 65 |)..(defm|ethod se|
|00000f90| 74 2d 76 69 65 77 2d 50 | 49 43 54 20 28 28 73 76 |t-view-P|ICT ((sv|
|00000fa0| 20 50 49 43 54 2d 73 76 | 6d 29 20 26 6b 65 79 20 | PICT-sv|m) &key |
|00000fb0| 50 49 43 54 2d 69 64 20 | 50 49 43 54 2d 6e 61 6d |PICT-id |PICT-nam|
|00000fc0| 65 20 50 49 43 54 2d 68 | 61 6e 64 6c 65 20 50 49 |e PICT-h|andle PI|
|00000fd0| 43 54 2d 66 69 6c 65 20 | 50 49 43 54 2d 73 74 6f |CT-file |PICT-sto|
|00000fe0| 72 61 67 65 29 0d 20 20 | 28 77 68 65 6e 20 50 49 |rage).  |(when PI|
|00000ff0| 43 54 2d 66 69 6c 65 20 | 28 73 65 74 66 20 28 73 |CT-file |(setf (s|
|00001000| 6c 6f 74 2d 76 61 6c 75 | 65 20 73 76 20 27 50 49 |lot-valu|e sv 'PI|
|00001010| 43 54 2d 66 69 6c 65 29 | 20 50 49 43 54 2d 66 69 |CT-file)| PICT-fi|
|00001020| 6c 65 29 29 0d 20 20 28 | 77 68 65 6e 20 50 49 43 |le)).  (|when PIC|
|00001030| 54 2d 73 74 6f 72 61 67 | 65 20 28 73 65 74 66 20 |T-storag|e (setf |
|00001040| 28 73 6c 6f 74 2d 76 61 | 6c 75 65 20 73 76 20 27 |(slot-va|lue sv '|
|00001050| 50 49 43 54 2d 73 74 6f | 72 61 67 65 29 20 50 49 |PICT-sto|rage) PI|
|00001060| 43 54 2d 73 74 6f 72 61 | 67 65 29 29 0d 20 20 28 |CT-stora|ge)).  (|
|00001070| 73 65 74 2d 76 69 65 77 | 2d 72 65 73 6f 75 72 63 |set-view|-resourc|
|00001080| 65 20 73 76 20 3a 72 73 | 72 63 2d 69 64 20 50 49 |e sv :rs|rc-id PI|
|00001090| 43 54 2d 69 64 20 3a 72 | 73 72 63 2d 6e 61 6d 65 |CT-id :r|src-name|
|000010a0| 20 50 49 43 54 2d 6e 61 | 6d 65 20 3a 72 73 72 63 | PICT-na|me :rsrc|
|000010b0| 2d 68 61 6e 64 6c 65 20 | 50 49 43 54 2d 68 61 6e |-handle |PICT-han|
|000010c0| 64 6c 65 29 29 0d 0d 3b | 3b 3b 3b 3b 3b 3b 3b 3b |dle))..;|;;;;;;;;|
|000010d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000010e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000010f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001100| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 00 00 00 |;;;;;;;;|;;;;;...|
|00001110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00001190| 6e 74 29 29 0d 20 20 28 | 75 6e 6c 65 73 73 20 28 |nt)).  (|unless (|
|000011a0| 61 64 6a 75 73 74 2d 76 | 69 65 77 2d 73 69 7a 65 |adjust-v|iew-size|
|000011b0| 0d 50 49 43 54 2d 73 76 | 6d 2e 6c 69 73 70 02 00 |.PICT-sv|m.lisp..|
|000011c0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|000011d0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 a4 de 7c f5 00 00 | 00 00 00 00 01 a0 28 6e |....|...|......(n|
|00001200| 65 77 2d 69 6e 64 65 6e | 74 20 28 64 69 20 50 49 |ew-inden|t (di PI|
|00001210| 43 54 2d 64 69 29 29 0d | 20 20 28 64 65 63 6c 61 |CT-di)).|  (decla|
|00001220| 72 65 20 28 69 67 6e 6f | 72 65 20 6e 65 77 2d 69 |re (igno|re new-i|
|00001230| 6e 64 65 6e 74 29 29 0d | 20 20 28 75 6e 6c 65 73 |ndent)).|  (unles|
|00001240| 73 20 28 61 64 6a 75 73 | 74 2d 76 69 65 77 2d 73 |s (adjus|t-view-s|
|00001250| 69 7a 65 2d 74 6f 2d 50 | 49 43 54 20 64 69 29 20 |ize-to-P|ICT di) |
|00001260| 28 69 6e 76 61 6c 69 64 | 61 74 65 2d 76 69 65 77 |(invalid|ate-view|
|00001270| 20 64 69 20 74 29 29 29 | 0d 0d 3b 3b 3b 3b 3b 3b | di t)))|..;;;;;;|
|00001280| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00001290| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 00 00 00 06 00 08 | 00 58 01 b7 02 f1 03 f1 |........|.X......|
|000012c0| 00 58 01 b7 02 f1 03 f1 | 00 00 00 00 00 00 00 10 |.X......|........|
|000012d0| 00 00 00 10 00 00 00 00 | 01 00 00 00 01 00 00 00 |........|........|
|000012e0| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d3 2c 08 16 |.Z...Z..|.F.7.,..|
|000012f0| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00001300| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00001310| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 38 11 04 |........|.....8..|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+